Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Access

Public Class AccessModuleTransformer
    Inherits BaseAccessObjectTransformer
    Implements IAccessColection

    Public Overrides Function getSubfolder() As String

        Return "Modules"

    End Function

    Public Overrides Function getExtension() As String
        Return "ACM"
    End Function

    Protected Overrides Function getAccessType() As Microsoft.Office.Interop.Access.AcObjectType
        Return AcObjectType.acModule
    End Function

    Public Function getObjects() As Microsoft.Office.Interop.Access.AllObjects Implements IAccessColection.getAccessObjects
        Return _app.CurrentProject.AllModules
    End Function
End Class
